Aminet 25/Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso/Aminet/disk/cdrom/amibonlex.lha/Install

Text File | 1998-03-16 | 4KB | 208 lines

; Installer för AmiBonLex
; 1998-03-13 av Bengt Engdahl <[e-mail]>
;
; $VER: AmiBonLex Install 0.6
;

(set where (cat "Var god välj var AmiBonLex ska installeras!\nEn katalog kallad 'AmiBonLex' kommer att skapas där."))
(set skajaginstdt "Du har inte MacPict2 datatypen installerad.\nDu måste ha den om du vill titta på bilder från Bonniers lexicon CD'n.\nSka jag installera den?")
(set villejinstdt "Du valde att inte installa MacPict2 datatypen. Därför kan du inte kolla på bilderna från Bonniers lexikon CD'n.")
(set aiffdtfannsej "Du har inte AIFF-datatypen installerad, utan den måste du använda ett externt program för höra ljud/musik från Bonniers lexikon CD'n.")
(set newtopaz8fannsej "Du har inte newtopaz fonten (storlek 8) installerad, det rekommenderas att du skaffar den men den är inte nödvändig för att använda AmiBonLex.")
(set vilkaiconer "Vilken icontyp till programmet önskar du använda.")
(set ejinstallat 0)

(complete 0)

(set #progdest
    (askdir
        (prompt where)
        (help @askdir-help)
        (default @default-dest)
    )
)

(set #progdest (tackon #progdest "AmiBonLex"))

(complete 20)

(makedir #progdest)

(complete 25)

(copyfiles
    (source "ABDL96data")
    (dest #progdest)
)
(copyfiles
    (source "ABDL97data")
    (dest #progdest)
)

(complete 30)

(makedir (cat #progdest "/fonts"))

(copyfiles
    (source "fonts")
    (all)
    (dest (cat #progdest "/fonts"))
)


(complete 35)

(copyfiles
    (source "AmiBonLex")
    (dest #progdest)
    (infos)
)

(complete 40)

(copyfiles
    (source "AmiBonLex.Guide")
    (dest #progdest)
    (infos)
)

(complete 50)

(if
 (exists ("SYS:Classes/DataTypes/MacPict.DataType"))

  (
   (set nonsens_vet_ej hur_loesas_annars)
   ;macpict2 dt'n fanns redan...
  )

  (
   (select
    (askchoice
     (prompt skajaginstdt)
     (choices "Ja" "Nej")
     (help "Ja rekommenderas!\n\n" @askchoice-help)
     (default 0)
    )
    (
        (copyfiles
            (source "datatype/MacPict.DataType")
            (dest "SYS:Classes/DataTypes/")
        )
        (copyfiles
            (source "datatype/MacPICT2")
            (dest "SYS:Devs/DataTypes/")
            (infos)
        )
    )
    (
        (message villejinstdt)
        (set ejinstallat 1)
    )
   )
  )
)

(complete 55)

    (if
        (exists ("SYS:Devs/DataTypes/Macintosh PICT2"))
    (
    (delete "SYS:Devs/DataTypes/Macintosh PICT2" (infos))

    (copyfiles
    (source "datatype/MacPICT2")
    (dest "SYS:Devs/DataTypes/")
    (infos)
    )
    )
    (
        (set nonsens_vet_ej hur_loesas_annars)
        ;filen fanns inte
    )
    )

(complete 60)

(if (= ejinstallat 0)
    (if
        (exists ("SYS:Devs/DataTypes/MacPaint"))
    (
            (copyfiles
                (source "datatype/MacPaint")
                (dest "SYS:Devs/DataTypes/")
                (infos)
            )
    )
    (
        (set nonsens_vet_ej hur_loesas_annars)
        ;MacPaint desc'en fanns inte, lite onödigt att byta ut ngt som inte finns eller?
    )
    )

)

(complete 70)

(if
    (AND
        (exists ("SYS:Classes/DataTypes/aiff.datatype"))
        (exists ("SYS:Devs/DataTypes/AIFF"))
    )
    (
        (set nonsens_vet_ej hur_loesas_annars)
        ;aiff dt'n fanns redan...
    )
    (
        (message aiffdtfannsej)
    )
)

(complete 80)

(if
    (exists ("Fonts:newtopaz/8"))
    (
        (set nonsens_vet_ej hur_loesas_annars)
        ;newtopaz/8 finns...
    )
    (
        (message newtopaz8fannsej)
    )
)

(complete 90)

(
(select
 (askchoice
  (prompt vilkaiconer)
  (choices "Standard 4-färger, (Av Bengt 'Nut' Engdahl)" "NewIcon, (Av Jimmy 'Gnu' Gunnarsson)")
  (help @askchoice-help)
  (default 0)
 )
    (
    (set nonsens_vet_ej hur_loesas_annars)
    ;redan överkopierad längre upp "(infos)"
    )
    (
    (copyfiles
        (source "NewIcons/AmiBonLex.info")
        (dest #progdest)
    )
    )
)
)

(complete 99)

;Här är installationen egentligen klar men för att få korrekt meddelande
;om var programmet är installerat och korrekt placering av eventuell
;log-fil så görs detta...

(set @default-dest #progdest)

(complete 100)